unit Field;

// ******************************************************************************
interface

// ******************************************************************************

type

  // ------------------------------------------------------------------------------
  // TBaseField
  // ------------------------------------------------------------------------------

  TField = class
  private
    fName: String;
    fValue: String;
  public
    constructor Create(aName, aValue: String);
    destructor Destroy(); override;
    procedure setName(aName: String);
    procedure setValue(aValue: String);
    function getName(): String;
    function getValue(): String;
  end;

// ******************************************************************************
implementation
// ******************************************************************************

// ------------------------------------------------------------------------------
{ TField }
// ------------------------------------------------------------------------------

constructor TField.Create(aName, aValue: String);
begin
  setName(aName);
  setValue(aValue);
end;

destructor TField.Destroy;
begin

  inherited;
end;

function TField.getName: String;
begin
  Result := fName;
end;

function TField.getValue: String;
begin
  Result := fValue;
end;

procedure TField.setName(aName: String);
begin
  fName := aName;
end;

procedure TField.setValue(aValue: String);
begin
  fValue := aValue;
end;

end.
